home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / PASCAL / FPKPAS65.ZIP / SRCCOMP.ZIP / SOURCE / COMPILER / DELS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-07-23  |  669 b   |  31 lines
  1. {****************************************************************************
  2.  
  3.                    Copyright (c) 1994,96 by Florian Klämpfl
  4.  
  5.  ****************************************************************************}
  6. { löscht die in AS.RES angegebene Assemblerdatei }
  7. {$I-}
  8. program dels;
  9.  
  10.   var
  11.      t : text;
  12.      f : file;
  13.      s : string;
  14.      
  15.   begin
  16.      assign(t,'AS.RES');
  17.      reset(t);
  18.      read(t,s);
  19.      close(t);
  20.      if s[1]=' ' then
  21.        halt(0);
  22.      while s[1]<>' ' do
  23.        delete(s,1,1);
  24.      delete(s,1,1);
  25.      while s[1]<>' ' do
  26.        delete(s,1,1);
  27.      delete(s,1,1);
  28.      assign(t,s);
  29.      erase(t);
  30.   end.
  31.